home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 48 / 048side1.d81 / air miles (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  5.3 KB  |  176 lines
  1. 140 gosub60100
  2. 160 print"[145]  one moment please..reading city data":gosub740
  3. 180 printchr$(147)
  4. 190 print"  [213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201] "
  5. 200 print"  [194]            [158]air miles             [194] "
  6. 210 print"  [194]                                  [194] "
  7. 220 print"  [194] [156][1[156]] view list of cities          [194] "
  8. 230 print"  [194]                                  [194] "
  9. 240 print"  [194] [156][2[156]] find distance between cities [194] "
  10. 250 print"  [194]                                  [194] "
  11. 260 print"  [194] [156][3[156]] exit program                 [194] "
  12. 270 print"  [194]                                  [194] "
  13. 280 print"  [194]          [156]select 1 [156]- 3            [194] "
  14. 290 print"  [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203] "
  15. 300 gosub600
  16. 310 getms$:ifms$=""then310
  17. 320 ms=val(ms$):ifms<1orms>3then310
  18. 330 onmsgoto1450,360,350
  19. 340 goto310
  20. 350 print"[147]":open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  21. 352 ifer<>63thenend
  22. 354 load"hello connect",8
  23. 360 r=3963.34:gosub600:le=25:al=1:nu=.
  24. 370 print"  [156]name of 1st city:";:gosub60500:c1$=c$:gosub620:gosub480:y1=ra
  25. 380 d1=v:ifv$=""then1610
  26. 390 gosub650:gosub480:x1=ra:d2=v:gosub600
  27. 400 print"  [156]name of 2nd city:";:gosub60500:c2$=c$:gosub680:gosub480:y2=ra
  28. 410 d3=v:ifv$=""then1610
  29. 420 gosub710:gosub480:x2=ra:d4=v
  30. 430 ifd1<>d3theny2=-y2
  31. 440 ifd2<>d4thenx2=-x2
  32. 450 a=sin(y1):b=sin(y2)
  33. 460 c=cos(y1):d=cos(y2):e=cos(x2-x1)
  34. 470 goto500
  35. 480 dd=m/60+d:ra=dd/57.2957795
  36. 490 return
  37. 500 f=(a*b)+(c*d*e)
  38. 510 ff=-atn(f/sqr(-f*f+1))+((NULL)/2):d=r*ff:d%=d
  39. 520 print:print"[145][145][145][145]     the distance between           ":print
  40. 530 print"     "c1$ " [156]and "c2$"           ":print"             "
  41. 540 print"     [156]is.....";d%;" miles[156].":print
  42. 550 print"  [195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]  "
  43. 560 print"       [156]press space bar [156]for menu":gosub600
  44. 570 getan$:ifan$=""then570
  45. 580 ifasc(an$)=32thenprint"[147]":goto190
  46. 590 goto570
  47. 600 getkb$:ifkb$<>""then600
  48. 610 return
  49. 620 forj=1toqnstep7
  50. 630 ifc1$=c$(j)thend$=c$(j+1):gosub2000:return
  51. 640 next:v$="":return
  52. 650 forj=1toqnstep7
  53. 660 ifc1$=c$(j)thend$=c$(j+4):gosub2100:return
  54. 670 next:return
  55. 680 forj=1toqnstep7
  56. 690 ifc2$=c$(j)thend$=c$(j+1):gosub2200:return
  57. 700 next:v$="":return
  58. 710 forj=1toqnstep7
  59. 720 ifc2$=c$(j)thend$=c$(j+4):gosub2300:return
  60. 730 next:return
  61. 740 dimc$(483)
  62. 750 forj=1to483:reada$:c$(j)=a$:next:qn=j-1:return
  63. 760 data albuquerque,35,0,n,106,9,w
  64. 770 data amsterdam,53,23,n,4,54,e
  65. 780 data antwerp,51,13,n,4,25,e
  66. 790 data athens,37,58,n,23,46,e
  67. 800 data atlanta,33,50,n,84,24,w
  68. 810 data baltimore,39,18,n,76,37,w
  69. 820 data belfast,54,35,n,5,56,w
  70. 830 data belgrade,44,50,n,20,37,e
  71. 840 data berlin,52,32,n,13,24,e
  72. 850 data boston,42,20,n,71,0,w
  73. 860 data buenos aires,34,30,s,58,20,w
  74. 870 data buffalo,42,55,n,78,50,w
  75. 880 data cairo,30,1,n,31,14,e
  76. 890 data cape town,33,56,s,18,28,e
  77. 900 data caracas,10,30,n,66,50,w
  78. 910 data chicago,41,45,n,87,40,w
  79. 920 data cincinnati,39,10,n,84,26,w
  80. 930 data columbus,38,57,n,83,1,w
  81. 940 data cleveland,41,28,n,81,43,w
  82. 950 data dallas,32,47,n,96,48,w
  83. 960 data denver,39,43,n,105,1,w
  84. 970 data detroit,42,20,n,83,3,w
  85. 980 data dublin,53,20,n,6,15,w
  86. 990 data erie,42,10,n,80,7,w
  87. 1000 data fairbanks,64,59,n,147,40, w
  88. 1010 data geneva,46,12,n,6,9,e
  89. 1020 data greensboro,36,7,n,79,46,w
  90. 1030 data hartford,41,47,n,72,41,w
  91. 1040 data hong kong,22,11,n,114,14,e
  92. 1050 data honolulu,21,19,n,157,52,w
  93. 1060 data houston,29,50,n,95,20,w
  94. 1070 data indianapolis,39,42,n,86,10,w
  95. 1080 data istanbul,41,0,n,29,0,e
  96. 1090 data jerusalem,31,47,n,35,10,e
  97. 1100 data johannesburg,26,10,s,28,8,e
  98. 1110 data kalamazoo,42,20,n,85,35,w
  99. 1120 data katmandu,27,45,n,85,12,e
  100. 1130 data las vegas,36,10,n,115,5,w
  101. 1140 data lisbon,39,0,n,9,12,w
  102. 1150 data london,51,30,n,0,5,w
  103. 1160 data los angeles,34,0,n,118,10,w
  104. 1170 data mexico city,19,20,n,99,10,w
  105. 1180 data miami,25,52,n,80,15,w
  106. 1190 data minneapolis,44,58,n,93,20,w
  107. 1200 data montreal,45,30,n,73,34,w
  108. 1210 data moscow,55,45,n,37,35,e
  109. 1220 data new orleans,30,0,n,90,5,w
  110. 1230 data new york,40,45,n,74,0,w
  111. 1240 data oklahoma city,35,25,n,97,30,w
  112. 1250 data omaha,41,15,n,96,0,w
  113. 1260 data paris,48,50,n,2,20,e
  114. 1270 data philadelphia,40,0,n,75,10,w
  115. 1280 data pittsburgh,40,25,n,79,55,w
  116. 1290 data phoenix,33,30,n,112,10,w
  117. 1300 data providence,41,41,n,71,15,w
  118. 1310 data quebec,46,52,n,71,13,w
  119. 1320 data reno,39,30,n,119,0,w
  120. 1330 data richmond,37,3,n,77,27,w
  121. 1340 data rio de janeiro,23,0,s,43,12,w
  122. 1350 data rome,41,54,n,12,30,e
  123. 1360 data san francisco,37,35,n,122,30,w
  124. 1370 data seattle,47,41,n,122,15,w
  125. 1380 data st. louis,38,40,n,90,20,w
  126. 1390 data spokane,47,45,n,117,25,w
  127. 1400 data tampa,27,57,n,82,30,w
  128. 1410 data tokyo,35,45,n,139,45,e
  129. 1420 data toronto,43,39,n,79,20,w
  130. 1430 data tucson,32,14,n,110,59,w
  131. 1440 data washington,38,52,n,77,0,w
  132. 1450 print"[147]       [156]press  return  [146] [156]to scroll"
  133. 1460 print"       press space bar[146] [156]for menu"
  134. 1465 print:printtab(7)"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  135. 1470 poke650,255:forx=1toqnstep7
  136. 1480 printtab(7)"[180]"tab(13)c$(x)tab(32)"[170]"
  137. 1490 fort=1to50:next
  138. 1500 getpn$:ifpn$=""then1500
  139. 1510 ifpn$=chr$(13)then1540
  140. 1520 ifpn$=chr$(32)thenx=qn:goto180
  141. 1530 ifpn$<>chr$(13)orpn$<>chr$(32)then1500
  142. 1540 next
  143. 1550 printtab(7)"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
  144. 1560 print"        [156]press space bar [156]for menu"
  145. 1570 gosub600
  146. 1580 getpn$:ifpn$=""then1580
  147. 1590 ifpn$=chr$(32)thenpoke650,0:goto180
  148. 1600 goto1580
  149. 1610 print"  not on list. check menu item 1."
  150. 1620 fort=1to1500:next:print"[147]":goto190
  151. 2000 m$=c$(j+2):v$=c$(j+3):d=val(d$):m=val(m$):v=asc(v$):j=qn:return
  152. 2100 m$=c$(j+5):v$=c$(j+6):d=val(d$):m=val(m$):v=asc(v$):j=qn:return
  153. 2200 m$=c$(j+2):v$=c$(j+3):d=val(d$):m=val(m$):v=asc(v$):j=qn:return
  154. 2300 m$=c$(j+5):v$=c$(j+6):d=val(d$):m=val(m$):v=asc(v$):j=qn:return
  155. 60100 poke53280, 0:poke53281, 0:print"[147][142]";
  156. 60101 print"[154]loadstarpresents:"
  157. 60102 print"[164][164][164][164][164][164][164][164][164][164][155][164][164][164][164][164][164][164][164][164][164][152][164][164][164][164][164][164][164][164][164][164][151][164][164][164][164][164][164][164][164][164][164][158]airmi";
  158. 60103 print"les"
  159. 60104 print"by:leobrennan"
  160. 60105 print"copyright1988"
  161. 60106 print"[151][163][163][163][163][163][163][163][163][163][163][152][163][163][163][163][163][163][163][163][163][163][155][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][154]pressspac";
  162. 60107 print"etocontinue"
  163. 60108 a=peek(203):ifa<>60then60108
  164. 60109 return
  165. 60500 c$="":poke198,.:print"[164]";
  166. 60510 fora=1tole+1
  167. 60520 geta$:ifa$=""then60520
  168. 60530 ifa$=chr$(13)thenprint"[157] ":return
  169. 60540 ifa$=chr$(20)anda>1thenprint"[157][157]  [157][157][164]";:a=a-1:c$=left$(c$,a-1):goto60520
  170. 60550 if(a=le+1)then60520
  171. 60560 if(nu)and((a$>="0")and(a$<="9"))then60595
  172. 60570 if(al)and((a$>=" "anda$<="/")or(a$>=":"anda$<="z"))then60595
  173. 60580 if(al)thenif(a$>="[193]"anda$<="[218]")then60595
  174. 60590 goto60520
  175. 60595 print"[157]"a$;:poke212,.:print"[164]";:c$=c$+a$:next
  176.